home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
hide.src
< prev
next >
Wrap
Text File
|
1990-10-01
|
660b
|
30 lines
%%HP:T(3);
DIR
HIDE
\<< VARS "" # 05B15h SYSEVAL PURGE VARS \-> hideobj dirobj allobj
\<< hideobj allobj dirobj SIZE 1 + allobj SIZE SUB + 'hideobj' STO
\<< \>> "" # 05B15h SYSEVAL STO dirobj SIZE
IF DUP THEN
1
FOR x
'dirobj' x GET DUP hideobj SWAP POS
IF NOT THEN
{} + ORDER
ELSE
DROP
END
-1
STEP
ELSE
DROP
END
\>>
\>>
UNHIDE
\<< VARS SWAP + ORDER \>>
WAKEUP
\<< "" # 05B15h SYSEVAL PURGE \>>
END